with Ada.Text_IO;

package body My_String.IO is

   function Get return Type_String is
      S : constant string := Ada.Text_IO.Get_Line;
      Mon_String : Type_String;
   begin
      Mon_String.Taille := S'Length;
      Mon_String.Texte(1..S'Length) := S;
      return Mon_String;
   end Get;

   function Afficher_String(S : Type_String) return String is
   begin
      return S.Texte(1..S.Taille);
   end Afficher_String;

end My_String.IO;